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-- BreakPt.Mesa 
-- Edited by: 

Barbara on August 1, 1978 3:31 PM 

Johnsson on August 2, 1978 10:51 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE, PageSize, wordlength], 
ControlDefs: FROM "controldef s" USING [ 

BytePC, FrameHandle, Global FrameHandle, NullFrame, WordPC], 
CoreSwapDefs: FROM "coreswapdefs" USING [ 

BBHandle, SVPointer, UBBPointer, UserBreakBlock] t 
DebugBreakptDefs: FROM "debugbreakptdef s" USING [ 

BBPointer, BodyEntryPc, BodyExitPc, BreakBlock, BreakError, BTtype, 

CodeObject, EXOItype, GCtype, PrintLocation, SCtype, StringToFGTEntry, 

WriteOctalHerald], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

FrameRelBPC, fullbitaddress , fullsymaddress , LookupProc, LookupProg, 

MainBTI, PcToCBTI, SeiHandle, SA, SOPointer, SymbolObject, WriteSource, 

WriteTransferName] , 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

CopyRead, CopyWrite, InterpretString , LookupFail, 

StringExpressionToNumber , WriteEOL], 
DebugSymbolDefs: FROM "debugsymboldefs" USING [ 

DAcquireSymbolTable, OReleaseSymbolTable, Symbol sForGFrame], 
DebugUtilityDefs: FROM "debugutil i tydef s H USING [ 

FreeOnDrum, GFtoCode, MREAD, ReadCodeByte, SREAD, SWRITE, 

Val idGlobal Frame, WriteCodeByte] , 
DIActionDefs: FROM "diactiondef s" USING [CleanUp, espTosop], 
DIDefs: FROM "didefs" USING [ESPointer], 
FSPDers: FROM "fspdefs" USING [ 

AddToNewZone, FreeNode, MakeNewZone, MakeNode, NoRoomlnZone, PruneZone, 

ZonePointer] , 
IODefs: FROM "iodefs" USING [SP, WriteString] , 

Mopcodes: FROM "mopcodes" USING [zBRK, zNOOP, zPORTI , zPUSHX, zRET], 
SDDefs: FROM "sddefs" USING [sBreakBlock, sBreakBlockSize, SO], 
StringDefs: FROM "stringdef s" USING [ 

AppendString, AppendSubString, DeleteSubString, Substring, 

Substring Descriptor], 
SymbolTableDefs: FROM "symbol tabledefs" USING [ 

NoSymbolTable , SymbolTableBase] , 
SymDefs: FROM "symdefs" USING [BTIndex, BTNull, FGTEntry], 
SystemDefs: FROM "systemdef s" USING [ 

AllocateHeapNode, Al locateHeapString , AllocateResidentPages, FreeHeapNode, 

FreeHeapString, FreePages]; 

BreakPt: PROGRAM 

IMPORTS DebugBreakptDefs, DebuggerDefs, DebugMiscDefs, DebugSymbolDefs, 

DebugUtilityDefs, DIActionDefs, FSPDefs, IODefs, StringDefs, 

SymbolTableDefs, SystemDefs 
EXPORTS DebugBreakptDefs * 

BEGIN -- a collection of procedures to set and clear breakpoints 

BytePC: TYPE = ControlDefs .BytePC; 

WordPC: TYPE = ControlDefs .WordPC; 

BYTE: TYPE * Al toDef s . BYTE ; 

GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandle; 

CodeObject: TYPE = DebugBreakptDef s . CodeObject; 

BBPointer: TYPE = DebugBreakptDef s .BBPointer; 

BreakError: TYPE = DebugBreakptDef s .BreakError ; 

UBBPointer: TYPE = CoreSwapDefs .UBBPointer ; 

UserBreakBlock: TYPE = CoreSwapDefs .UserBreakBlock; 

SetBlocks: BBPointer <- BBnil; --list of set blocks 
NewBlock: BBPointer ♦- BBnil; --most recent breakblock 
bpError: SIGNAL = CODE; 

BBnil: BBPointer « NIL; 

BreakPointError: PUBLIC SIGNAL [error: BreakError] ■ CODE; 

DeleteBreakBlock: PROCEDURE [optr: BBPointer] RETURNS [last: BOOLEAN] « 
-- Delete optr from the list designated by SetBlocks and 
-- linked through the bpChain field. 

-- RETURN TRUE iff this is the last break in this code segment 
BEGIN 
p, q: BBPointer; 
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IF (p *- SetBlocks) - BBnil THEN SIGNAL bpError; 
IF optr ■ SetBlocks THEN SetBlocks «- optr. chain 
ELSE 

DO 

IF p. chain ■ optr THEN 

BEGIN p. chain <- optr. chain; EXIT END; 

IF (p <- p. chain) ■ BBnil THEN SIGNAL bpError; 

ENDLOOP; 
last <- FALSE; 
FOR q <- SetBlocks, q. chain UNTIL q ■ BBnil DO 

IF q.code ■ optr. code THEN EXIT; 

REPEAT 

FINISHED «> last 4- TRUE; 

ENDLOOP; 
FreeBB[optr]; 
RETURN 
END; 

BBzone: FSPDef s . ZonePointer «- 

FSPDefs.MakeNewZone[SystemDefs.AllocateResidentPages[l] t 
Al toDefs. PageS ize, SystemDef s .FreePages] ; 

FreeBB: PROCEDURE [bb: BBPointer] ■ 
BEGIN OPEN FSPDefs; 
FreeNode[BBzone, bb]; 
[] *- PruneZone[BBzone]; 
RETURN 
END; 

AllocBB: PROCEDURE RETURNS [bb: BBPointer] - 
BEGIN OPEN FSPDefs; 

bb <- MakeNode[BBzone, SIZE[DebugBreakptDef s.BreakBlock] 
! NoRoomlnZone ■> 
IF z ■ BBzone THEN 
BEGIN 
AddToNewZ one [BBzone, SystemDef s . AllocateResidentPages[l], 

Al toDefs. PageS ize, SystemDef s. FreePages]; 
RESUME 
END]; 
RETURN 
END; 

InsertBreak: PUBLIC PROCEDURE [frame: GlobalFrameHandle, pc: BytePC, 
e: DebugBreakptDef s .EXOItype, b: DebugBreakptDef s.BTtype, 
condition: STRING] - 

BEGIN --set breakpoint on the specified statement 
sp, p: BBPointer; 
op: BYTE; 

NewBlock <- BBnil ; 

--allowed to insert same break again in order to change the condition 

IF (p ♦- FindBPRec[frame, pc]) # BBnil THEN 

BEGIN 

IF p. condition # NIL THEN 

BEGIN SystemDef s . FreeHeapString[p . condition] ; p. condition <- NIL; END; 

IF condition # NIL AND condition. length § THEN 
SetUpCondition[p, condition]; 

RETURN 

END; 
op <- DebugUtil ityDef s .ReadCodeByte[f rame.pc] ; 

IF op * Mopcodes.zPORTI THEN ERROR BreakPointError[notAl lowed] ; 
IF op ■ Mopcodes.zPUSHX OR op * Mopcodes . zNOOP THEN pc <- [pc + 1]; 
IF e * exit AND op # Mopcodes. zRET AND op // Mopcodes .zBRK THEN 

ERROR Br e ak Po i n tE rr or [noRe turn] ; 
NewBlock <- p <- AllocBB[]; 
--set break point parameters 
pt f- DebugBreakptDef s .BreakBlock[f addr : frame, pc: pc, brkinst: , 

chain: , code: , exo: e, bt: b, condition: NIL]; 
IF (sp <- FindSegBPRec[frame t pc]) # BBnil THEN 

p. brkinst <- sp. brkinst 
ELSE 

BEGIN 

p. brkinst * DebugUtil i tyDefs . ReadCodeByte[f rame.pc] ; 

DebugUtil ityDef s.WriteCodeByte[frame, pc, Mopcodes. zBRK]; 

END; 
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IF condition # NIL AND condition. length § THEN 

SetUpCondition[p, condition]; 
p. code <- DebugUtilityDefs.GFtoCode[p.faddr]; 
--insert in breakblock in frame order 
IF SetBlocks # BBnil THEN 

BEGIN sp <- SetBlocks; 

DO 

IF sp.faddr « p.faddr OR sp. chain ■ BBnil THEN EXIT; 

sp <- sp. chain; 

ENDLOOP; 

p. chain <- sp. chain; 

sp. chain «- p; 

END 
ELSE BEGIN p. chain <- SetBlocks; SetBlocks <- p; END; 
RETURN 
END; 

OctalBreakPoint: PUBLIC PROCEDURE [frame: GlobalFrameHandle, pc: BytePC, 
sc: DebugBreakptDefs.SCtype] a 
BEGIN 

ENABLE BreakPointError =»> BEGIN WriteBreakError[error] ; CONTINUE; END; 
IF sc = set THEN InsertBreak[f rame, pc, octal, break, NIL] 
ELSE RemoveBreak[f rame, pc]; 
RETURN 
END; 

RemoveBreak: PUBLIC PROCEDURE [frame: GlobalFrameHandle, pc: BytePC] ■ 
BEGIN --remove breakpoint on the specified statement 
lastone: BOOLEAN; 
p: BBPointer; 

op: BYTE <- DebugUti 1 i tyDef s . ReadCodeByte[f rame, pc] ; 
IF op = Mopcodes.zPUSHX OR op » Mopcodes .zNOOP THEN pc «- [pc + 1]; 
IF (p <- FindBPRec[frame,pc]) * BBnil THEN ERROR BreakPointError[notFound]; 
op <- p.brkinst; 
IF p. condition # NIL THEN 

BEGIN 

SystemDef s.FreeHeapString[ p. condition]; 

FreeUserBreakB lock [p.faddr, ByteToWordPC[p.pc]]; 

END; 
lastone *- DeleteBreakBlock[p] ; 
IF lastone OR FindSegBPRec[f rame.pc] a BBnil THEN 

BEGIN 

DebugUti! ityDef s.WriteCodeByte[f rame, pc.op]; 

IF lastone THEN DebugUti! ityDef s . FreeOnDrum[f rame] ; 

END; 
RETURN 
END; 

FindBPRec: PUBLIC PROCEDURE [frame: GlobalFrameHandle, pc: BytePC] 
RETURNS [p: BBPointer] * 
BEGIN 

IF (p 4- SetBlocks) - BBnil THEN RETURN; 
DO 

IF p.pc = pc AND p.faddr - frame THEN RETURN; 

IF (p ♦- p. chain) ■ BBnil THEN RETURN; 

ENDLOOP; 
RETURN 
END; 

FindSegBPRec: PUBLIC PROCEDURE [frame: GlobalFrameHandle, pc: BytePC] 
RETURNS [p: BBPointer] - 
BEGIN 
code: CodeObject *- DebugUti 1 ityDef s . GFtoCode[f rame] ; 

IF (p ♦- SetBlocks) ■ BBnil THEN RETURN; 
DO 

IF p.pc » pc AND p. code = code THEN RETURN; 

IF (p *- p. chain) - BBnil THEN RETURN; 

ENDLOOP; 
RETURN 
END; 

DeleteBreaks: PUBLIC PROCEDURE ■ 
BEGIN 

p: BBPointer; 
IF (p «- SetBlocks) * BBnil THEN RETURN; 
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DO 

IF p.exo # octal 

THEN DebugUtilityDefs.WriteCodeByte[p.faddr, p.pc, p.brkinst]; 

IF (p «- p. chain) - BBnil THEN EXIT; 

ENDLOOP; 
RETURN 
END; 

RestoreBreaks: PUBLIC PROCEDURE - 
BEGIN 

p: BBPointer; 

IF (p ♦- SetBlocks) ■ BBnil THEN RETURN; 
DO 

IF p.exo # octal 

THEN DebugUtilityDefs.WriteCodeByte[p.faddr, p.pc, Mopcodes.zBRK]; 

IF (p. <- p. chain) - BBnil THEN EXIT; 

ENDLOOP; 
RETURN 
END; 

CodeByteFromState: PROCEDURE [state: CoreSwapDefs .SVPointer] 
RETURNS [BYTE] « 
BEGIN OPEN DebugUtilityDefs; 

frame: ControlDef s . FrameHandle = MREAD[@state.dest] ; 
RETURN[ReadCodeByte[MREAD[@frame. access link], 

DebuggerDefs.FrameRelBPC[frame]]] 
END; 

ValidateBreakpoint: PUBLIC PROCEDURE [state: CoreSwapDefs .SVPointer] 
RETURNS [BOOLEAN] - 
BEGIN 

RETURN[state # NIL AND CodeByteFromState[state] - Mopcodes.zBRK] 
END; 

FGFrame: TYPE « RECORD [fge: SymDefs . FGTEntry , frame: Global FrameHandle] ; 

FindProcString: PROCEDURE [proc, text: STRING] RETURNS [FGFrame] « 
BEGIN -- convert [proc, text] to FGTEntry 
found: BOOLEAN; 
frame: GlobalFrameHandle; 
entryindex: CARDINAL; 

[found, frame, entryindex] <- DebuggerDef s.LookupProc[proc]; 
IF -found THEN ERROR DebugMiscDef s .LookupFail [proc] ; 

RETURN [FGFrame[DebugBreakptDef s .StringToFGTEntry[f rame, entryindex, text], frame]] 
END; 

FindProgString: PROCEDURE [prog, text: STRING] RETURNS [FGFrame] ■ 
BEGIN -- convert [prog, text] to FGTEntry 
stbase: Symbo 1 Tab leDefs. Symbol Tab leBase; 
found: BOOLEAN; 
gframe: GlobalFrameHandle; 
IF prog[0] -IN ['0.. '9] THEN 

BEGIN 

[found, gframe, stbase] «- DebuggerDef s .LookupProg[prog]; 

IF -found THEN ERROR DebugMiscDef s . LookupFai 1 [prog] ; 

DebugSymbolDef s . DRe 1 easeSymbol Tab le[ stbase] ; 

END 
ELSE BEGIN 

gframe <- LOOPHOLE[DebugMiscDef s .StringExpressionToNumber[prog , 8], GlobalFrameHandle]; 

IF -DebugUtil i tyDefs .Val idGloba!Frame[gf rame] 
THEN ERROR DebugMiscDef s . LookupFail [prog] ; 

END; 
RETURN[FGFrame[DebugBreakptDefs.StringToFGTEn try [gframe, 0, text] , gframe]] 
END; 

TextBreakPoint: PUBLIC PROCEDURE [body, source, condition: STRING, 
bt: DebugBreakptDefs.BTtype, gc: DebugBreakptDef s .GCtype] a 
BEGIN 

fgf: FGFrame; 
fgf <- IF gc ■ prog THEN FindProgString[body , source] 

ELSE FindProcString[body , source]; 
Inser tBreak[fgf . frame, [f gf . f ge. cindex] , in, bt, condition I 

BreakPointError => BEGIN WriteBreakError[error] ; GOTO exit; END]; 
IF NewBlock # BBnil THEN 

DebugBreakptDefs.PrintLocation[fgf .frame, fgf .fge. find ex, FALSE]; 
RETURN 
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EXITS exit «> RETURN; 
END; 

ClearTextBreakPoint: PUBLIC PROCEDURE [body, source: STRING, 
gc: DebugBreakptDefs.GCtype] a 
BEGIN 

fgf: FGFrame; 
fgf «- IF gc ■ prog THEN FindProgString[body , source] 

ELSE FindProcString[body , source]; 
RemoveBreak[fgf .frame, [fgf .f ge.cindex] 1 

BreakPointError => BEGIN WriteBreakError[error]; GOTO exit; END]; 
IF NewBlock # BBnil THEN 

DebugBreakptDefs.PrintLocation[fgf .frame, fgf . fge.fi ndex, FALSE]; 
RETURN 

EXITS exit »> RETURN; 
END; 

Breakpoint: PUBLIC PROCEDURE [body, condition: STRING, 
bt: DebugBreakptDef s.BTtype, sc: DebugBreakptDef s.SCtype, 
ex: DebugBreakptDefs.EXOItype] - 
BEGIN OPEN DebugBreakptDef s; 
noSymPc, pc: BytePC; 
frame: GlobalFrameHandle; 
found: BOOLEAN; 
entryindex: CARDINAL; 

[found, frame, entryindex] «- DebuggerDef s.LookupProc[body]; 
IF -found THEN SIGNAL DebugMiscDef s . LookupFai 1 [body] ; 
pc <- [if ex = entry THEN BodyEntryPc[f rame, entryindex, FALSE] 

ELSE BodyExitPc[f rame, entryindex]]; 
IF sc = set THEN InsertBreak[f rame, pc, ex, bt, condition I 

BreakPointError ■> BEGIN Wr iteBreakError[error] ; GOTO exit; END] 
ELSE RemoveBreak[f rame, pc I 

BreakPointError => IF error # notFound OR ex # entry 

THEN BEGIN Wri teBreakError[error] ; GOTO exit; END 
ELSE BEGIN 

noSymPc «- [BodyEntryPc[f rame, entryindex, TRUE]]; 

IF noSymPc = pc THEN BEGIN Wr iteBreakError[error] ; GOTO exit; END 

ELSE RemoveBreak[f rame, noSymPc IBreakPointError »> 

BEGIN WriteBreakError[error]; GOTO exit; END]; 
GOTO exit; 
END]; 
RETURN 
EXITS 

exit => RETURN; 
END; 

TraceAll: PUBLIC PROCEDURE [body: STRING, sc: DebugBreakptDef s .SCtype, ex: DebugBreakptDefs.EXOItype] 
* = 

BEGIN OPEN DebugSymbolDefs, DebugBreakptDef s , SymDefs; 

found: BOOLEAN; 

gframe: GlobalFrameHandle; 

stbase: Symbol Tab! eDef s. Symbol Tab leB as e; 

bti: BTIndex; 

s: STRING <- [30]; 

desc: StringDefs .SubStringDescriptor; 

ss: StringDefs .Substring <~ @desc; 

noSymPc, pc: BytePC; 

IF body[0] -IN ['0. .*9] THEN 

BEGIN 

[found, gframe, stbase] *- DebuggerDef s .LookupProg[body]; 

IF -found THEN ERROR DebugMiscDef s . LookupFai! [body]; 

END 
ELSE BEGIN 

gframe <- LOOPHOLE[DebugMiscDef s .StringExpressionToNumber[body , 8], GlobalFrameHandle]; 

IF -DebucjUtilityDefs.ValidGlobalFrame[gframe] THEN GOTO notfound; 

stbase *- DAcquireSymbolTable[Symbol sForGFrame[gf rame 
ISymbolTableDefs.NoSymbolTable => GOTO notfound] 
ISymbolTableDefs.NoSymbolTable «=> GOTO notfound]; 

EXITS 

notfound »> ERROR DebugMiscDef s .LookupFai! [body]; 

END; 
BEGIN OPEN stbase; 

IF (bti <- (bb+DebuggerDefs.MainBTI).firstSon) ■ BTNull THEN RETURN; 
DO 

WITH b:(bb+bti) SELECT FROM 
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Callable -> 
BEGIN 

SubStringForHash[ss, (b. id+seb) .htptr]; 
s. length +- 0; 

StringDef s.AppendSubString[s, ss]; 

pc *- [IF ex ■ entry THEN BodyEntryPc[gf rame, b.entrylndex, FALSE] 
ELSE BodyExitPc[gf rame, b.entrylndex]]; 
SELECT sc FROM 

set ■> InsertBreak[gframe, pc, ex, trace, NIL I 

BreakPointError ■> BEGIN WriteBreakError[error]; GOTO exitjEND]; 
clear => RemoveBreak[gf rame , pc I 

BreakPointError «> IF error # notFound OR ex # entry 

THEN BEGIN Wri teBreakError[error] ; GOTO exit; END 
ELSE BEGIN 

noSymPc <~ [BodyEntryPc[gf rame, b.entrylndex, TRUE]]; 
IF noSymPc ■ pc 

THEN BEGIN Wr i teBreakError[error] ; GOTO exit; END 
ELSE RemoveBreak[gf rame, noSymPc IBreakPointError ■> 

BEGIN WriteBreakError[error]; GOTO exit; END]; 
GOTO exit; 
END]; 
ENDCASE; 
EXITS 

exit -> NULL; 
END; 
ENDCASE; 
IF (bb+bti). link. which - parent THEN EXIT 
ELSE bti <- (bb+bti) .link. index; 
ENDLOOP; 
DReleaseSymbolTable[stbase] ; 
END; 
RETURN 
END; 

ClearAllBT: PUBLIC PROCEDURE [bt: DebugBreakptDef s.BTtype] - 
BEGIN --clear all trace/break points 
p, q: BBPointer; 

IF (p «- SetBlocks) ■ BBnil THEN RETURN; 
DO 

q <- p. chain; 

IF p.bt a bt THEN RemoveBreak[p.faddr, p.pc 1 

BreakPointError *> BEGIN Wr i teBreakError[error] ; CONTINUE; END]; 

IF (p «- q) - BBnil THEN EXIT; 

ENDLOOP; 
RETURN 
END; 

ClearBreakBlocks: PUBLIC PROCEDURE = 

BEGIN -- initialize trace/break points 

p, q: BBPointer; 

FOR p <- SetBlocks, q UNTIL p ■ BBnil DO 

q «- p. chain; 

FreeBB[p]; 

ENDLOOP; 
SetBlocks «- BBnil ; 
RETURN 
END; 

ListAll: PUBLIC PROCEDURE [bt: DebugBreakptDef s.BTtype]- 
BEGIN 

found: BOOLEAN «- FALSE; 
p: BBPointer <- SetBlocks; 
UNTIL p = BBnil DO 

IF p.bt ■ bt THEN 

BEGIN found <- TRUE; PrintTextLine[p] ; END; 

p <- p. chain; 

ENDLOOP; 
IF -found THEN SELECT bt FROM 

break => WriteBreakError[noBreaksSet]; 

trace -> WriteBreakError[noTracesSet] ; 

ENDCASE; 
RETURN 
END; 



PrintTextLine: PROCEDURE [p: BBPointer]- 
BEGIN OPEN DebuggerDefs, DebugSymbolDef s; 
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stbase: Symbol Tab! eDefs .Symbol Tab leBase; 

IF p.exo « octal THEN DebugBreakptDef s .WriteOctalHeral d[p.f addr , p.pc] 

ELSE BEGIN 

IODefs.WriteString[SELECT p.exo FROM 
entry »> "Entry to "L, 
exit ■> "Exit from "L, 
ENDCASE »> "In "L]; 
stbase <- DAcquireSymbolTable[SymbolsForGFrame[p.faddr 
ISymbolTableDefs.NoSymbolTable «> GOTO nosym] 
ISymbolTableDefs.NoSymbolTable a > GOTO nosym]; 
Wri teTransf erName[Sei Hand le[ stbase: stbase, 

sei: (stbase. bb+PcToCBTI[stbase, p.pc]). id], TRUE, 
ControlDefs.NullFrame, p.faddr]; 
IF p. condition # NIL THEN 
BEGIN 

IODefs.WriteString[" Condition: "L]; 
IODefs.WriteString [p. condition]; 
END; 
IF p.exo * in THEN WriteSource[p, f addr, p.pc, FALSE]; 
DRe 1 easeSymbol Tab le[ stbase]; 
EXITS 

nosym => WriteBreakError[noSym]; 
END; 
IF p.exo # in THEN DebugMiscDef s .Wri teEOL[] ; 
RETURN 
END; 

InvalidCondition: SIGNAL ■ CODE; 

SetUpCondition: PROCEDURE [bb: BBPointer, condition: STRING] - 
BEGIN 

userBB: UBBPointer; 
BEGIN 

userBB <~ SystemDefs.AllocateHeapNode[SIZE[UserBreakBlock]]; 
userBBt +■ [frame: bb.faddr, pc: ByteToWordPC[bb . pc] , ptrL: NIL, ptrR: NIL, 

posnL: 0, posnR: 0, sizeL: 16, sizeR: 16, inst :bb .brkinst , relation:, 

immediateR: FALSE, counterL: FALSE, localL: FALSE, localR: FALSE]; 
ParseCondi tional [condition, userBB 

1 InvalidCondition ■> GOTO invalid]; 
bb . condition «- SystemDef s . Al 1 oca teHeapString[ condition .length] ; 
StringDef s . Ap pen dString[bb. condition, condition]; 
WriteUserBreakBlock[ userBB] ; 
EXITS 

invalid ■> WriteBreakError[badCondition] ; 
END; 

SystemDef s . FreeHeapNode[ userBB]; 
RETURN 
END; 

ParseConditional : PROCEDURE [c: STRING, p: UBBPointer] ■ 
BEGIN 

i: CARDINAL; 

localcopy: STRING *■ [100]; 
var: STRING <- [40]; 
CopyString[f rom: c, to: localcopy]; 
ParseForID[localcopy , var]; 
FOR i IN [0. .var.length-1) DO 

IF var[i] -^['O..^] THEN EXIT; 
REPEAT 

FINISHED »> 
BEGIN 

SetupForCounter[var, p]; 
FOR i IN [0. .localcopy. length) DO 

IF localcopy[i] # IODeFs.SP THEN SIGNAL InvalidCondition; 
ENDLOOP; 
RETURN; 
END; 
ENDLOOP; 
SetupForID[var, TRUE, p]; 
SetupForRelation[loca1copy, p]; 
var. length *- 0; 
ParseForID[localcopy, var]; 

IF var[0] -IN ['0..'9] THEN SetupForID[var , FALSE, p] 
ELSE SetupForLi teral[var, p]; 
RETURN 
END; 
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ParseForlD: PROCEDURE [local, var: STRING] ■ 
BEGIN OPEN StringDefs; 
i, count: CARDINAL <- 0; 

ssd: SubStringDescriptor <- [base: local, offset: 0, length: 0]; 
ss: Substring ♦• ©ssd; 

IF local[0] ■ IODefs.SP THEN DropLeadingSpaces[local] ; 
FOR i IN [0.. local. length) DO 
count «- i ; 
SELECT local[i] FROM 

IN ['<..'>], -IODefs.SP, «'# ■> GOTO done; 
ENDCASE »> NULL; 
REPEAT 

done a > ssd. length <- count; 
FINISHED «> ssd. length <- count+1; 
ENDLOOP; 
AppendSubString[var, ss]; 
DeleteSubString[ss]; 
RETURN 
END; 

SetupForlD: PROCEDURE [var: STRING, left: BOOLEAN, p: UBBPointer] ■ 
BEGIN 

SetUpBreakBlock: PROCEDURE [esp: DIDef s . ESPointer] ■ 
BEGIN OPEN DebuggerDeFs; 
sym: f ull bitaddress ; 
sopWd, sa: SA; 
so: SymbolObject; 
sop: SOPointer <- @so; 
DIActionDef s . espTosop[esp , sop]; 
WITH b:sop.baddr SELECT FROM 
short => sopWd «- b.shortAddr; 
ENDCASE ■> SIGNAL Inval idCondi tion; 
sym <- f ul lsymaddress[sop]; 
WITH sym SELECT FROM 

short => sa <- shortAddr; 
ENDCASE «> ERROR; 
IF left THEN 

BEGIN OPEN sop.stbase; 

p.ptrL <- LOOPHOLE[sopWd+sa]; 

p.sizeL <- BitsForType[sop.tsei]; 

p.posnL «- IF p.sizeL < Al toDef s .wordlength THEN 

(Al toDef s .wordlength - p.sizeL) ELSE 0; 
p.localL ♦- IF sopWd = THEN TRUE ELSE FALSE; 
END 
ELSE 

BEGIN OPEN sop.stbase; 

p.ptrR «- LOOPHOLE[sopWd+sa]; 

p.sizeR *- BitsForType[sop. tsei]; 

p.posnR +■ IF p.sizeR < Al toDefs .wordlength THEN 

(AltoDefs. wordlength - p.sizeR) ELSE 0; 
p.localR «- IF sopWd = THEN TRUE ELSE FALSE; 
END; 
RETURN 
END; 
DebugMiscDef s . InterpretString[var , SetUpBreakBlock, TRUE 

1 ANY O BEGIN DIActionDef s .CI eanUp[] ; SIGNAL Inval idCondition END]; 
RETURN 
END; 

SetupForLiteral : PROCEDURE [var: STRING, p: UBBPointer] - 
BEGIN 

p. immediateR «- TRUE; 

p.ptrR <~ DebugMiscDef s.StringExpressionToNumber[var , 10]; 
RETURN 
END; 

SetupForCounter: PROCEDURE [var: STRING, p: UBBPointer] ■ 
BEGIN 

p.counterL <~ TRUE; 
p . relation <- eq; 
p.ptrL *■ LOOPHOLE[0]; 

p.ptrR <- DebugMiscDef s .StringExpressionToNumber[var , 10]; 
RETURN 
END; 
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DropLeadingSpaces: PROCEDURE [local: STRING] " 
BEGIN OPEN StringDefs; 
i: CARDINAL; 

ssd: SubStringDescriptor ♦- [base: local, offset:0, length: 0]; 
ss: Substring ♦• @ssd; 
IF local[0] # IODefs.SP THEN RETURN; 
FOR i IN [0. .local .length) DO 

IF local[i] it IODefs.SP THEN 

BEGIN ssd. length <r i; EXIT; END; 

REPEAT 

FINISHED »> SIGNAL Inval idCondi tion ; 

ENDLOOP; 
DeleteSubString[ss]; 
RETURN 
END; 

SetupForRelation: PROCEDURE [condition: STRING, p: UBBPointer] » 
BEGIN OPEN StringDefs; 
i , count: CARDINAL «- 0; 

ssd: SubStringDescriptor «- [base: condition, offset:0, length: 1]; 
ss: Substring <- @ssd; 

IF condition[0] « IODefs.SP THEN DropLeadingSpaces[condition] ; 
SELECT condition[l] FROM 
'- -> 
BEGIN 

SELECT condition[0] FROM 
'< ■> p. relation ♦• le; 
'> ■> p. relation «- ge; 
ENDCASE => SIGNAL Inval idCondition ; 
ssd. length *- 2; 
END; 
IODefs.SP, IN['0..'9], IN['a..'z], IN['A..'Z] -> 
SELECT condition[0] FROM 
'< s > p. relation ♦- It; 
'> *> p. relation ♦- gt; 
' ■ => p. relation <- eq; 
'# => p. relation ♦- ne; 
ENDCASE ■> SIGNAL Inval idCondition ; 
ENDCASE «> SIGNAL Inval idCondition ; 
DeleteSubString[ss]; 
RETURN 
END; 

CopyString: PROCEDURE [to: STRING, from: STRING] - 
BEGIN 

to. length <- 0; / 

StringDefs .AppendString[to, from] ; 
RETURN 
END; 

ByteToWordPC: PROCEDURE [bpc: BytePC} RETURNS [wpc: WordPC] ■ 
BEGIN 

wpc <- WordPC[bpc/2]; 

RETURN[IF bpc MOD 2 ■ 1 THEN WordPC[-wpc] ELSE wpc] 
END; 

WriteUserBreakBlock: PROCEDURE [userBB: UBBPointer] ■ 
BEGIN OPEN SDDefs, DebugUti 1 i tyDef s ; 
i: CARDINAL; 

bbHandle: CoreSwapDef s.BBHandle *- SREAD[@SD[sBreakBlock]]; 
BEGIN 
i <- GetUserBreakBlock[userBB. frame, userBB. pc 

I TooManyConditions B > GOTO ignore]; 
DebugMiscDef s .CopyWri te[f rom: userBB, to: @bbHandle.bl ocks[i] , 

nwords: SIZE[UserBreakBlock]] ; 
EXITS 

ignore a > WriteBreakError[tooManyConditions]; 
END; 
RETURN 
END; 

TooManyConditions: SIGNAL - CODE; 

GetUserBreakBlock: PROCEDURE [frame: Global FrameHandle , pc: WordPC] 
RETURNS [i: CARDINAL] « 
BEGIN OPEN SDDefs, DebugUti 1 i tyDef s ; 



BreakPt.mesa 2-Sep-78 15:32:14 Page 10 



bbHandle: CoreSwapDef s .BBHandle «- SREAD[@SD[sBreakBlock]] ; 
n: CARDINAL «- SREAD[0bbHandle. length] ; 
FOR i IN [0..n) DO 

IF SREAD[@bbHandle.blocks[i]. frame] * frame 

AND SREAD[8bbHandle.blocks[1].pc] ■ pc 
THEN RETURN[1]; 

ENDLOOP; 
IF n >■ SREAD[@SD[sBreakBlockSize]] / SIZE[UserBreakBlock] 

THEN SIGNAL TooManyCondi tions ; 
SWRITE[SbbHandle.length,n+l]; 
RETURN[n] 
END; 

FreeUserBreakBlock: PROCEDURE [frame: GlobalFrameHandle, pc: WordPC] ■ 
BEGIN OPEN SDDefs, DebugUtil ityDef s ; 
i, j: CARDINAL; 

bbHandle: CoreSwapDef s .BBHandle <- SREAD[@SD[sBreakBlock]]; 
n: CARDINAL «- SREAD[6bbHandle. length] ; 
local: UserBreakBlock; 
FOR i IN [0..n) DO 

IF SREAD[@bbHandle.blocks[i]. frame] ■ frame 
AND SREAD[@bbHandle.blocks[i].pc] * pc THEN 
BEGIN 
FOR j IN [1+1. .n) DO 

DebugMiscDefs.CopyRead[from: ©bbHandle. blocks[j] , to: Qlocal , 

nwords: SIZE[UserBreakBlock]]; 
DebugMiscDefs.CopyWrite[f rom: @local, to: GbbHandl e.blocks[ j-1] , 

nwords: SIZE[UserBreakBlock]]; 
ENDLOOP; 
SWRITE[@bbHandle.length,n-l]; 
END; 
ENDLOOP; --what to do if not found? 
RETURN 
END; 

WriteBreakError: PROCEDURE [error: BreakError] - 
BEGIN 
IODefs.WriteString[SELECT error FROM 

notFound *> " breakpoint not foundI"L, 

notAllowed -> " not allowed hereT'L, 

noReturn => " does not returnT'L, 

noBreaksSet => "--No breaks have been setl--"L, 

noTracesSet => M --No traces have been set!--"L, 

badCondition => " condition failed"L, 

tooManyConditions ■> " too many conditions'^, 

noSym => "--symbol table missing - looks mysteriousl--"L, 

ENDCASE = > M ??"L]; 
RETURN 
END; 

END ... 



